PC Gamer (Italian) 31/PC Gamer IT CD 31 2-2.iso/drivers/videodrv/cyrrus/CL5446.140/UTILITY/INSTALL.DAT

Text File | 1997-03-07 | 33KB | 1,052 lines

// Standard header here...
@DefineProject
    @Name           = "GD5446 Display Drivers"
    @Version        = "Version 1.31"
    @Subdir         = "\\"
    @Immediate      = 1
    @OutDrive       = C
    @Requires   @HardDisk
@EndProject

// Define all the vars you need here
// Init all strings with "" or a hard coded string
// Init all Integers with 0 or 1

// If OEM release, set @IsOem = 1 else 0

@DefineVars
    @Integer @DDrive = 99
    @Integer @StrLens = 0
    @Integer @bannercol = 0
    @Integer @OurCol = 0
    @Integer @XX = 0
    @Integer @IsOem = 1
    @Dir @AcadDir  = "\\ACAD\\DRV"
    @Drive @AcadDrive  = C
    @Qstring @Product       = "GD5446"
    @Qstring @NameLower     = "GD5446 display drivers"
    @Qstring @Opt1020       = "AutoCAD Release 12, 13"
    @Qstring @Opt1040       = "AutoDesk 3D Studio Ver 1.0 - 3.0"
    @Qstring @Opt1060       = "AutoShade with RenderMan Ver 2.0"

    @Qstring @Opt1230       = "VGA Utilities"

    @Qstring @Line1         = "is the name of the default directory where the"
    @Qstring @Line2         = "display driver(s) will be installed."
    @Qstring @Line3         = "The program locates the subdirectory below the root directory"
    @Qstring @Line4         = "of drive"
    @Qstring @Line5         = "To choose the default, press ENTER."
    @Qstring @Line6         = "To change the directory name, backspace over the currently "
    @Qstring @Line7         = "displayed name and type a new name.  Press ENTER when finished."
    @Qstring @Line8         = "A directory already exists with the name"
    @Qstring @Line9         = "Do you want to copy the new display driver(s) over the files in this"
    @Qstring @Line10        = "directory?"
    @Qstring @Line11        = "After the driver(s) have been copied to their respective directories,"
    @Qstring @Line12        = "refer to either the application's technical reference manual or"
    @Qstring @Line13        = "the Display Drivers and Utilities manual supplied with your VGA"
    @Qstring @Line14        = "for information on using the high resolution drivers."
    @Qstring @Line15        = "An INSTALL.DDF file already exists in the directory "
    @Qstring @Line16        = "Do you want to rename the current INSTALL.DDF file to INSTALL.BAK?"
    @Qstring @Line20        = "will be installed."


    @Qstring @redprogram    = "TURBODLD.RED"
    @Qstring @thisprogram   = "RCTURBOC.EXP"
    @Qstring @namethisprogram = "TurboDLD drivers"
    @Qstring @helpcontact   = "Panacea Inc"
    @Qstring @registration  = ""
    @Qstring @registrationname = ""
    @Qstring @companyname   = ""
    @Qstring @regreturn     = ""
    @Qstring @ourhomeexp    = ""
    @Qstring @ourhomered    = ""
    @Qstring @tempstring    = ""
    @Qstring @bannername    = "AutoCAD / AutoSHADE / 3D Studio TurboDLD Drivers"

    @Dir @Opt1230Dir        = "\\VGAUTIL"

    @Qstring @microstationname = "Cirrus Logic Microstation Drivers"
    @Integer @Version5Flag  = 1
    @Dir @USTATIONDir       = "\\USTATION"
@EndVars

@Display
    @Cls
               @Name
              Release @Version

       Copyright (C) Cirrus Logic, Inc 1991-1996.  All rights reserved.

    This program will install the Cirrus Logic @NameLower,
    release @Version, on your computer system and verify the
    integrity of the distribution disk(s).  You may press the
    [Esc] key at any time to abort the installation.  INSTALL
    will ask you several questions about your computer hardware
    and then give you the option of installing all
    or selected @NameLower.

    Each question has a default answer.  If the default answer
    is correct, press the ENTER key in response to the question.
    Otherwise, type the answer and then press the ENTER key.

    If you make a mistake while typing, press the BACKSPACE key
    and then retype the answer.

                    @Pause
@EndDisplay
@GetOutDrive
  @Suppress A
  @Suppress B
  @Cls
   On which disk drive do you wish to install the @NameLower?

@EndOutDrive

OPTIONSELECT:
@GetOption
  @CheckBox
  @Cls









    Select the @NameLower to install on drive @OutDrive:
   - scroll up    PgUp - scroll page up    Enter     - install selections
   - scroll down  PgDn - scroll page down  Space bar - toggle Yes/No
  Y - all YES      N    - all NO            Esc       - Exit Install
  @Option 1230 = "Cirrus Logic GD5446 Utilities"
  @Option 1020 = "AutoCAD               Rel 11,12 or 13    Multi-res  Multi-color"
  @Option 1040 = "AutoDesk 3d Studio       Ver 1.0-3.0  Multi-res  Multi-color"
  @Option 1060 = "AutoShade w/ RenderMan   Ver  2.0     Multi-res  Multi-color"
  @Option 1500 = "MicroStation Drivers                                        "
  @EndOption

@If (
//     1000 [! @Option &&
     1020 [! @Option &&
     1040 [! @Option &&
     1060 [! @Option &&
//     1085 [! @Option &&
     1230 [! @Option &&
     1500 [! @Option
    )
  @Display
  @Cls

         * * *   A selection was not detected   * * *


  At the selection menu, please use the Space bar to toggle the desired
  selections and then press Enter to begin the installation procedure.


  If no selections are desired, press Esc to exit the install program.

                    @Pause
  @EndDisplay
  @Goto OPTIONSELECT

@Endif

// ***** Installation for AutoCAD Drivers
@If ((1020 [= @Option)|| (1040 [= @Option)|| (1060 [= @Option))
    // setup some of the local var defs

    // Used to display the banner on all screens
    @xx = @strlen("@bannername")
    @bannercol = (38 - @xx/2)

    // get the correct string for the EXP and the RED files
    @ourhomeexp = @wherearewe(@thisprogram)
    @ourhomered = @wherearewe(@redprogram)

    // used to check for Write Protect on floppy
    @If (@IsOem == 1)
       @goto Acad_OEM
    @Endif

    @If (@InDrive == A)
       @xx = @homedrive(0)
    @ElseIf (@InDrive == B)
       @xx = @homedrive(1)
    @EndIf

    @If (@xx == 1)          // if error found ...
        @tempstring = " Install must have write access to your @namethisprogram "
        @xx = @strlen(@tempstring)
        @ourcol = (38 - @xx/2)

        @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
        @movecstr(2,8,62,"║                                                           ║")
        @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
        @MoveCStr(2, @bannercol, 48, @bannername)

        @movecstr(7,13,79,"╔═════════════════════════════════════════════════╗")
        @movecstr(7,31,207," W A R N I N G ")
        @movecstr(8,13,79,"║                                                 ║")
        @movecstr(9,13,79,"║                                                 ║")
        @movecstr(9,15,79," The diskette in Drive @InDrive is ")
        @movecstr(9,43,78," -WRITE PROTECTED- ")
        @movecstr(10,13,79,"║                                                 ║")
        @movecstr(11,13,79,"╚═════════════════════════════════════════════════╝")

        @movecstr(15,@ourcol,31, @tempstring)
        @movecstr(16,@ourcol,31," diskette in order to continue. ")

        @movecstr(19,@ourcol,31," Press any key to exit to DOS, unprotect the ")
        @movecstr(20,@ourcol,31," @namethisprogram diskette and then run INSTALL again. ")

        @move(22,0)
        @waitkey
        @exit

    @Endif

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @MoveCStr(2, @bannercol, 48, @bannername)

    @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
    @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
    @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
    @movecstr(9,5,31,"your @name Users Guide, in particular the ")
    @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
    @movecstr(11,5,31,"and Configuring topics.")
    @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
    @movecstr(14,5,31,"are using AutoCAD Release 11 and follow configuration")
    @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render")
    @movecstr(16,5,31,"topic in your @name Users Guide.")


    @Display
        @move(21,0)
                    @Pause
    @enddisplay


    // First thing to do is to check the software and
    // register it if need to..

    @regreturn = @ckregisterinfo(@ourhomeexp)

    @If (@strlen("@regreturn") == 0)
    @GoTo Not_Registered
    @Endif

    @If (@strfind(@regreturn, "ERROR") == -1)
    @GoTo Show_Registered
    @Endif

    // If here, there must have been an error

ShowError:

    @xx = @strlen(@regreturn)
    @ourcol = (40 - @xx/2)
    // adjust for junk on the end of the string
    @xx = (@xx - 1)

    @Display @Cls
    @move(4,0)
    There was an error detected by the install software.

    The error was:

    @movecstr(10,@ourcol,30,@strhead("@regreturn", @xx))

    @move(12,0)
    Please insure that you have the correct files on your disk.

    If you need help, please contact @helpcontact.
    @move(21,0)
                    @Pause
    @Exit
    @enddisplay

    // If we are here then the software has been registered

Show_Registered:

    @regreturn = @ckregisterinfo(@ourhomeexp)

    // Clear the options out
    @clearoption(1)
    @clearoption(2)

    @xx = @strlen(@regreturn)
    @ourcol = (38 - @xx/2)

    @GetOption
    @LocalWindow(18,40)

    @movecstr(1,22,79,"╔═════════════════════════════╗")
    @movecstr(2,22,79,"║                             ║")
    @movecstr(2,24,78,"This Copy Is Registered To:")
    @movecstr(3,22,79,"╚═════════════════════════════╝")

    @movecstr(7,@ourcol,30,@strhead("@regreturn", @xx))

    @move(9,0)
       The program has been installed and is protected by federal
       copyright laws.  If you need additional copies of this software
       please contact @helpcontact.

     @Option 1 = "Continue"
     @Option 2 = "Exit Install"

    @EndOption

    @If(1 [= @Option)
        @Goto Get_Acad
    @Else
       @Exit
    @Endif

Not_Registered:

    @getstring @registration

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @MoveCStr(2, @bannercol, 48, @bannername)

    @LocalWindow(13,40)

    @movecstr(7,3,31,"Please type in your Full Name as you wish it to appear for registration")
    @movecstr(8,3,31,"purposes. For Corporate installations, you may wish to enter the name of")
    @movecstr(9,3,31,"your CAD Manager.")

    @movecstr(18,8,31,"Note: The total combined length of [Your Name] and, from the")
    @movecstr(19,8,31,"      next screen, [Company Name] cannot exceed 64 characters.")
    @movecstr(20,8,31,"      If the total is longer, [Company Name] will be truncated.")

    @prompt = "    Please Enter Your Full Name    "

    @EndString

    // get the length of the string so-far

    @strlens = (64 - @strlen("@registration"))

    @getstring @companyname

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @MoveCStr(2, @bannercol, 48, @bannername)

    @LocalWindow(13,40)

    @movecstr(7,14,31,"Please type in your Company Name as you would like")
    @movecstr(8,14,31,"to have it appear for registration purposes.")

    @movecstr(18,9,31,"Note: You have @strlens characters available for [Company Name].")
    @movecstr(19,9,31,"      If you enter a Company Name longer than @strlens characters,")
    @movecstr(20,9,31,"      the additional information will be truncated.")


    @prompt = "    Please Enter Your Company Name    "

    @EndString

    @registrationname = "@registration, @companyname"

    // Clear the options out
    @clearoption(10)
    @clearoption(20)

    @xx = @strlen(@registrationname)
    @ourcol = (40 - @xx/2)

    @GetOption

    @LocalWindow(18,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)

    @movecstr(8,18,31,"You have entered the following information:")

    @movecstr(12, @ourcol, 62, @registrationname)


     @Option 10 = "Information Correct"
     @Option 20 = "Information Not Correct"

    @EndOption

    @If(20 [= @Option)
       @Goto Not_Registered
    @Endif

    // NULL out the string b4 using again

    @tempstring = ""

    // If we are here, do the registration ....

    @regreturn = @registerit(@registrationname @ourhomeexp)

    @If (@strfind(@regreturn, "ERROR") != -1)
    @GoTo ShowError
    @Endif
Acad_OEM:
    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @MoveCStr(2, @bannercol, 48, @bannername)

    @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
    @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
    @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
    @movecstr(9,5,31,"your @name Users Guide, in particular the ")
    @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
    @movecstr(11,5,31,"and Configuring topics.")
    @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
    @movecstr(14,5,31,"are using AutoCAD Release 11 and the follow configuration")
    @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render")
    @movecstr(16,5,31,"topic in your @name Users Guide.")

    @Display
        @move(21,0)
                    @Pause
    @enddisplay

Get_Acad:
    // clear the options first
    @clearoption(1000)
    @clearoption(2000)
    @clearoption(3000)

    @GetOption @cls
    @LocalWindow(14,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)

    @move(8,0)
          Please enter the Version of AutoCAD you are running:

    @Option 1000 = " Release 11, AutoShade, 3D Studio or AVE Render "
    @Option 2000 = "             Release 12                         "
    @Option 3000 = "             Release 13                         "

    @EndOption

    @If(1000 [= @Option)
       @AcadDir = "TURBODLD"
    @EndIf

    @If(3000 [= @Option)
       @AcadDir = "ACAD13\\DOS\\DRV"
    @EndIf

    @GetSubDir @AcadDir
    @Cls
    @LocalWindow(14,40)

    @If(1000 [= @Option)
        @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
        @movecstr(2,8,62,"║                                                           ║")
        @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
        @Movecstr(2, @bannercol, 48, @bannername)

        @movecstr(6,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 11.")
        @movecstr(7,5,31,"Enter a sub-directory name on @OutDrive: for @namethisprogram")
        @movecstr(8,5,31,"files. If the sub-directory does not exist, @namethisprogram Install")
        @movecstr(9,5,31,"will create it for you.")
    @EndIf
       @If(2000 [= @Option)
        @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
        @movecstr(2,8,62,"║                                                           ║")
        @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
        @Movecstr(2, @bannercol, 48, @bannername)

        @movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 12.")
        @movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
        @movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD\\DRV sub-directory name")
        @movecstr(8,5,31,"below.")
        @movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
        @movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
        @movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
        @movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
        @movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
        @movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
    @EndIf
    @If(3000 [= @Option)
        @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
        @movecstr(2,8,62,"║                                                           ║")
        @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
        @Movecstr(2, @bannercol, 48, @bannername)

        @movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 13.")
        @movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
        @movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD13\\DOS\\DRV sub-directory")
        @movecstr(8,5,31,"name below.")
        @movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
        @movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
        @movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
        @movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
        @movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
        @movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
    @EndIf
    @EndSubDir

    // Clear the options out
    @clearoption(10)
    @clearoption(20)

    @If (@DirExists("@OutDrive:\\@AcadDir"))
      @GoTo Report
    @Else
      @GetOption
      @LocalWindow(12,40)
        @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
        @movecstr(2,8,62,"║                                                           ║")
        @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
        @Movecstr(2, @bannercol, 48, @bannername)
        @move(4,0)

    @AcadDir path was not found on @OutDrive.

    Would you like to create @AcadDir at this time?


         @Option 10 = "Yes, create the path"
         @Option 20 = "No; re-enter the information"

      @EndOption
    @Endif

    @tempstring = " Creating @OutDrive:@AcadDir, please stand-by ! "
    @xx = @strlen(@tempstring)
    @ourcol = (40 - @xx/2)

    @If(10 [= @Option)
       @Display @Cls
        @movecstr(12,@ourcol,48,@tempstring)
        @MkDir("@OutDrive:@AcadDir")
       @EndDisplay
       @Goto WeBuiltPath
    @Else
       @Goto Get_Acad
    @Endif

    // Now we know where to install TURBODLD, tell the user whats going on

Report:

    @clearoption(10)
    @clearoption(20)

    @tempstring = " @OutDrive:@AcadDir exists, do you wish to use this directory? "
    @xx = @strlen(@tempstring)
    @ourcol = (38 - @xx/2)

    @Getoption
    @localwindow(14,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)

    @movecstr(9,@ourcol,48,@tempstring)
     @Option 10 = "Yes, Continue"
     @Option 20 = "No; re-enter the information"
    @Endoption

    @If(20 [= @Option)
       @Goto Get_Acad
    @Endif

    // we get here from building the dir\sub-dir and not asking if they want to use it.

WeBuiltPath:

    // Test the amount of free room left on the dest drive

    @Display @Cls

        @if (@diskfree(@OutDrive) < 1200000)

      @move(7,0)
      The selected output disk drive only has @diskfree(@OutDrive) bytes.

      @namethisprogram requires a minumum of 1.2mb.

      The Install program will now exit, please correct this problem

      and re-run the Install program.
        @move(21,0)
                    @Pause
        @exit
        @endif
    @enddisplay

    // Clear the options out
    @clearoption(10)
    @clearoption(20)

    @tempstring = " @OutDrive:@AcadDir "
    @xx = @strlen(@tempstring)
    @ourcol = (40 - @xx/2)

    @movecstr(12,@ourcol,63,@tempstring)

    @tempstring = " @NameThisProgram will be installed in: "
    @xx = @strlen(@tempstring)
    @ourcol = (40 - @xx/2)

    @GetOption

    @LocalWindow(17,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @bannername)

    @movecstr(8,@ourcol,63,@tempstring)
     @Option 10 = "Yes, this is the correct path"
     @Option 20 = "No; re-enter the information"
    @endoption

    @If(10 [= @Option)
       @Goto Start_Copy
    @Else
       @Goto Get_Acad
    @Endif

Start_Copy:

@Display

// First check if this is v11

@If(1000 [= @Option)
//        Creating FASTACAD.BAT and PANA3DS.BAT files, please stand-by

   @Write("@OutDrive:\\@AcadDir\\FASTACAD.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
   @Write( , , "SET DSPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
   @Write( , , "SET RDPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
   @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
@Else
//                  Creating PANA3DS.BAT file, please stand-by
@EndIf

@Write("@OutDrive:\\@AcadDir\\PANA3DS.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
@Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")

@enddisplay

// This part is a DOS style copy ...

@tempstring = "Processing @namethisprogram Install information -- Please Wait."
@xx = @strlen(@tempstring)
@ourcol = (40 - @xx/2)

@copy("@ourhomeexp", "@OutDrive:\\@AcadDir\\@thisprogram")
@Endif

//  **** Installation of ZCLMODE Utility
@If (1230 [= @Option)
  @GetSubdir @Opt1230Dir
    @Default = "\\VGAUTIL"
    @Cls

    @Opt1230Dir @Line1
    @Opt1230 @Line2

    @Product utilities will be installed.

    @Line3
    @Line4 @OutDrive:

    @Line5

    @Line6
    @Line7

    @Line11
    @Line12
    @Line13
    @Line14

    @PROMPT = " Which directory? "
  @EndSubdir

  @If (@DirExists("@OutDrive:@Opt1230Dir"))
    @GetOption
    @LocalWindow(14,40)
    @Line8 @OutDrive:@Opt1230Dir.
    @Line9
    @Line10

    @Option 1231 = "Yes"
    @Option 1232 = "No"

    @EndOption
  @Else
/* @MkDir() was unsuccessful copying files, use @System() instead */
/*              @MkDir("@OutDrive:@Opt1230Dir") */
        @System("md @OutDrive:@Opt1230Dir")
  @Endif
@Endif

// **** Installation section for MicroStation Drivers
@If (1500 [= @Option)
  @Display
     @cls
  @EndDisplay

  // clear the options first
  @clearoption(1501)
  @clearoption(1502)

  @xx = @strlen("@microstationname")
  @bannercol = (38 - @xx/2)

  @GetOption @cls
  @LocalWindow(14,40)

  @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  @movecstr(2,8,62,"║                                                           ║")
  @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  @Movecstr(2, @bannercol, 48, @microstationname)

  @move(8,0)
       Please enter the Version of MircoStation you are running:

    @Option 1501 = "    Version 5     "
    @Option 1502 = "    Version 4     "

  @EndOption

  @If(1502 [= @Option)
     @Version5Flag = 0
  @Else
     @Version5Flag = 1
  @EndIf



Get_USTATION:

  @GetSubDir @USTATIONDir

    @Cls
    @LocalWindow(14,40)

    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @microstationname)

    @movecstr(7,5,31,"      Enter The MicroStation directory located on @OutDrive:")

  @EndSubDir

  // Clear the options out
  @clearoption(110)
  @clearoption(120)

  @If (@DirExists("@OutDrive:\\@USTATIONDir"))
    @GoTo ReportM
  @Else
    @GoTo NoDirExistM
  @Endif

  // Now we display path not found message and ask the user to try again.

NoDirExistM:
    @LocalWindow(14,40)
    @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
    @movecstr(2,8,62,"║                                                           ║")
    @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
    @Movecstr(2, @bannercol, 48, @microstationname)


    @movecstr(7,5,31,"     @OutDrive:@USTATIONDir does not exist. ")
    @movecstr(9,5,31,"     Please re-enter the information. ")

    @clearoption(110)
    @clearoption(120)

  @Display
    @move(18,20)
    @pause
    @cls
  @EndDisplay

  @GoTo Get_USTATION



  // Now we know where to install panaStation Classic, tell the user whats going on

ReportM:

  @clearoption(110)
  @clearoption(120)

  @tempstring = " @OutDrive:@USTATIONDir exists, do you wish to use it? "
  @xx = @strlen(@tempstring)
  @ourcol = (38 - @xx/2)

  @Getoption
  @localwindow(14,40)

  @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  @movecstr(2,8,62,"║                                                           ║")
  @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  @Movecstr(2, @bannercol, 48, @microstationname)

  @movecstr(9,@ourcol,48,@tempstring)
     @Option 110 = "Yes, Continue"
     @Option 120 = "No; re-enter the information"
  @Endoption

  @If(120 [= @Option)
     @Goto Get_USTATION
  @Endif

  // we get here from building the dir\sub-dir and not asking if they want to use it.

WeBuiltPathM:

  // Test the amount of free room left on the dest drive

  @Display @Cls

   @if (@diskfree(@OutDrive) < 600000)

      @move(7,0)
      The selected output disk drive only has @diskfree(@OutDrive) bytes.

      @namethisprogram requires a minumum of 0.6mb.

      The Install program will now exit, please correct this problem

      and re-run the Install program.
      @move(21,0)
     @pause
      @exit
   @endif
  @enddisplay

  @tempstring = " @OutDrive:@USTATIONDir "
  @xx = @strlen(@tempstring)
  @ourcol = (40 - @xx/2)

  @movecstr(12,@ourcol,63,@tempstring)

  @tempstring = " @Name will be installed in: "
  @xx = @strlen(@tempstring)
  @ourcol = (40 - @xx/2)

  // Clear the options out
  @clearoption(110)
  @clearoption(120)

  @GetOption

  @LocalWindow(17,40)

  @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  @movecstr(2,8,62,"║                                                           ║")
  @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  @Movecstr(2, @bannercol, 48, @microstationname)

  @movecstr(8,@ourcol,63,@tempstring)
     @Option 110 = "Yes, this is the correct path"
     @Option 120 = "No; re-enter the information"
  @endoption

  @If(110 [= @Option)
     @Goto Start_CopyM
  @Else
     @Goto Get_USTATION
  @Endif

Start_CopyM:

  @If (@DirExists("@OutDrive:\\@USTATIONDir\\DRIVERS"))
    @GoTo Got_AllsubsM
  @Else
    @MkDir("@OutDrive:@USTATIONDir\\DRIVERS")
  @Endif

Got_AllsubsM:

  @ourhomered = @wherearewe(@redprogram)

// @Finish @cls

@Endif
// END of MicroStation Installation


/***********************************************************************/
@If (
     1020 [! @Option &&
     1040 [! @Option &&
     1060 [! @Option &&
     1230 [! @Option &&
     1500 [! @Option
    )

  @Goto NOINSTALLATION
@Endif

/***********************************************************************/
@DefineDisk
  @LABEL  = "Software disk 1 of 6"
  @If ((1020 [= @Option && 1022 [! @Option)||(1040 [= @Option && 1042 [! @Option)||(1060 [= @Option && 1062 [! @Option))
   @BeginLib @ourhomered
       @File *.* @Out @OutDrive:\\@AcadDir\\*.*
   @EndLib
/*    @File ACADP\RCTURBOC.EXP                    @Out @OutDrive:\\@AcadDir\RCTURBOC.EXP  */
/*    @File ACADP\READ.ME                         @Out @OutDrive:\\@AcadDir\READ.ME       */
  @Endif

  @If (1500 [= @Option)
    @If (@Version5Flag == 1)
      // Here if Version 5 of MicroStaiton
       @BeginLib PANASTN
         @File PANASTN.EXP  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastnp.*
         @File PANASTN.MA   @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastnp.*
         @File PANASTNp.MGL  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File PANASTN.EXP  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastns.*
         @File PANASTN.MA   @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastns.*
         @File PANASTNs.MGL  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File PSCONFIG.EXE @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File READ.ME      @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File PSTATION.HLP @OUT @OutDrive:\\@USTATIONDir\\*.*
       @EndLib
    @Else
      // Here if Version 4 of MicroStaiton
       @BeginLib PANASTN
         @File PANASTN.EXP  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastn.*
         @File PANASTN.MA   @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\panastn.*
         @File PANASTN.MGL  @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File PSCONFIG.EXE @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File READ.ME      @OUT @OutDrive:\\@USTATIONDir\\DRIVERS\\*.*
         @File PSTATION.HLP @OUT @OutDrive:\\@USTATIONDir\\*.*
       @EndLib
    @Endif
  @Endif

  @If (1230 [= @Option && 1232 [! @Option)
    @File VGAUTIL\zclmode.exe             @Out \@Opt1230Dir\zclmode.exe

    @Display
    @Cls

    @MoveCStr(10,5,64+15,"ZCLMODE.EXE is a self-extracting zip file. Run ZCLMODE.EXE to obtain ")
    @MoveCStr(11,5,64+15,"CLMODE.EXE utilities. ")

    @Pause
    @EndDisplay
  @Endif

@EndDisk


@DefineDisk
  @LABEL  = "Software Disk 2 of 4"
@EndDisk
@DefineDisk
  @LABEL  = "Software Disk 3 of 4"
@EndDisk



/***********************************************************************/
@Finish
  @Cls
    The @NameLower installation is complete.
  @If(1000 [= @Option)
      @move(2,0)
     You have successfully installed @namethisprogram for use with
     AutoCAD Release 11. Before you can use @namethisprogram you
     must run the FASTACAD.BAT file copied to your @OutDrive:@AcadDir
     sub-directory and then reconfigure AutoCAD to use @namethisprogram.
     You may wish to add FASTACAD.BAT to your AutoCAD start-up file.


     To reconfigure AutoCAD to use @namethisprogram start AutoCAD and
     select the "TurboDLD ADI v4.2 ...." display option and then follow
     the on-screen directions.

    @move(21,0)
  @Goto DONE
@Endif

@If(2000 [= @Option)
      @move(2,0)
     You have successfully installed @namethisprogram for AutoCAD
     Release 12.  Before you can use @namethisprogram you must
     reconfigure AutoCAD. To reconfigure, start AutoCAD with "ACAD -r"
     and change the current display device. Choose @namethisprogram
     from the list of available display drivers and then follow the
     on-screen instructions. Refer to your @name
     Users Guide for detailed configuration instructions.

     If you have chosen to install @namethisprogram into a sub-directory
     other than ACAD\DRV, you must append the following path to your
     "SET ACADDRV=...." environment variable.

                 @OutDrive:@AcadDir

  @move(21,0)
  @Goto DONE
@EndIf

@If(3000 [= @Option)
      @move(2,0)
     You have successfully installed @namethisprogram for AutoCAD
     Release 13.  Before you can use @namethisprogram you must
     reconfigure AutoCAD. To reconfigure, start AutoCAD with the batch
     file provided by AutoCAD and change the current display device.
     Choose @namethisprogram from the list of
     available display drivers and then follow the on-screen
     instructions.  Refer to your @name
     Users Guide for detailed configuration instructions.

     If you have chosen to install @namethisprogram into a sub-directory
     other than ACAD13\DOS\DRV, you must append the following path to your
     "SET ACADDRV=...." environment variable.

                 @OutDrive:@AcadDir

  @move(21,0)
  @Goto DONE
@EndIf


@Goto DONE
NOINSTALLATION:
    The selected @NameLower were not installed.
    Please refer to the user manual for additional instructions.

DONE:
                    @Pause
  @ChDrive @OutDrive
  @ChDir "\\"
@EndFinish

// end-of-file